From 2fb7f3bafba312ff3bad20f85b9466f34ef022b0 Mon Sep 17 00:00:00 2001 From: Markus Rost Date: Wed, 8 May 2002 18:02:28 +0000 Subject: [PATCH] (describe-function-1): If the source is `loaddefs.el', look for the real source. This is necessary only for defaliases. --- lisp/help-fns.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/lisp/help-fns.el b/lisp/help-fns.el index e27e6fc119a..af0fa9e73a9 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -210,6 +210,19 @@ and the file name is displayed in the echo area." (help-xref-button 1 'help-function def))))) (or file-name (setq file-name (symbol-file function))) + (when (equal file-name "loaddefs.el") + ;; Find the real def site of the preloaded function. + ;; This is necessary only for defaliases. + (let ((location + (condition-case nil + (find-function-search-for-symbol function nil "loaddefs.el") + (error nil)))) + (when location + (with-current-buffer (car location) + (goto-char (cdr location)) + (when (re-search-backward + "^;;; Generated autoloads from \\(.*\\)" nil t) + (setq file-name (match-string 1))))))) (cond (file-name (princ " in `") -- 2.30.2